home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-004 ms visual basic pro 30 / disk8 / form3.fr_ / form3.bin
Text File  |  1993-04-27  |  3KB  |  113 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    Caption         =   "Print To File Settings"
  4.    ClientHeight    =   2880
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   8070
  8.    Height          =   3285
  9.    Left            =   1035
  10.    LinkTopic       =   "Form3"
  11.    ScaleHeight     =   2880
  12.    ScaleWidth      =   8070
  13.    Top             =   1140
  14.    Width           =   8190
  15.    Begin CommandButton Command2 
  16.       Caption         =   "Modify Settings"
  17.       Height          =   375
  18.       Left            =   4080
  19.       TabIndex        =   5
  20.       Top             =   2040
  21.       Width           =   3255
  22.    End
  23.    Begin CommandButton Command1 
  24.       Caption         =   "Accept Settings"
  25.       Height          =   375
  26.       Left            =   480
  27.       TabIndex        =   4
  28.       Top             =   2040
  29.       Width           =   2895
  30.    End
  31.    Begin ComboBox OutputFileType 
  32.       Height          =   300
  33.       Left            =   4200
  34.       TabIndex        =   3
  35.       Text            =   "  "
  36.       Top             =   240
  37.       Width           =   3735
  38.    End
  39.    Begin TextBox OutputFileName 
  40.       Height          =   285
  41.       Left            =   4200
  42.       TabIndex        =   1
  43.       Text            =   "c:\crw\OutFile.txt"
  44.       Top             =   1080
  45.       Width           =   3735
  46.    End
  47.    Begin Label Label2 
  48.       Caption         =   "Select the output type :"
  49.       Height          =   255
  50.       Left            =   120
  51.       TabIndex        =   2
  52.       Top             =   240
  53.       Width           =   3855
  54.    End
  55.    Begin Label Label1 
  56.       Caption         =   "Enter output file name  ( including path ) :"
  57.       Height          =   255
  58.       Left            =   120
  59.       TabIndex        =   0
  60.       Top             =   1080
  61.       Width           =   3855
  62.    End
  63. End
  64. Sub Command1_Click ()
  65.    Output_File_Name = OutputFileName.Text
  66.    
  67.    Rem - Set PrinterFileType property
  68.     If OutputFiletype = "Record Format" Then
  69.         Output_File_Type = 0
  70.     Else
  71.         If OutputFiletype = "Tab Seperated" Then
  72.             Output_File_Type = 1
  73.         Else
  74.             If OutputFiletype = "Text Format" Then
  75.                 Output_File_Type = 2
  76.             Else
  77.                 If OutputFiletype = "DIF Format" Then
  78.                     Output_File_Type = 3
  79.                 Else
  80.                     If OutputFiletype = "Comma Seperated Value" Then
  81.                         Output_File_Type = 4
  82.                     Else
  83.                         If OutputFiletype = "Tab Seperated Text" Then
  84.                             Output_File_Type = 6
  85.                         End If
  86.                     End If
  87.                 End If
  88.             End If
  89.         End If
  90.     End If
  91.  
  92. Rem Close form
  93.     Form3.Hide
  94.  
  95. End Sub
  96.  
  97. Sub Command2_Click ()
  98.     OutputFiletype.SetFocus
  99. End Sub
  100.  
  101. Sub Form_Load ()
  102.     OutputFiletype.AddItem "Comma Seperated"
  103.     OutputFiletype.AddItem "Tab Seperated"
  104.     OutputFiletype.AddItem "Record Format"
  105.     OutputFiletype.AddItem "Text Format"
  106.     OutputFiletype.AddItem "DIF Format"
  107.     OutputFiletype.AddItem "Tab Seperated Text"
  108.     OutputFiletype.SelText = "Comma Seperated"
  109.  
  110.     
  111. End Sub
  112.  
  113.